
(defun dir-pathname (path)
  (make-pathname
    :device (pathname-device path)
    :directory (pathname-directory path)))

(let* ((base-pathname (dir-pathname (load-time-value *load-pathname*))))
  (pushnew base-pathname asdf:*central-registry* :test #'equal)
  (print asdf:*central-registry*)
  (ql:quickload :cl-tmcl))
